home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / misc / RDTextures.lha / RDTextures / texture.gc < prev    next >
Text File  |  1996-09-01  |  1KB  |  62 lines
  1. G4C
  2.  
  3. ;new dodgy gui thing
  4.  
  5. WinBig 80 80 420 350 "Texture Gen"
  6. WinType 11110001
  7.  
  8. xONLOAD
  9. setvar cliarg "-c 0 10 -1 -l 0 10 0 -l 0 10 30 -u 0 2 -f 1 250 -u 1 1"
  10. setvar cliarg2 ""
  11. setvar pgmfile "test.pgm"
  12. setvar palfile "default.pal"
  13. setvar seed 0
  14. setvar alpha1 1.1
  15. setvar alpha2 0.1
  16. setvar beta 0.001
  17. setvar xsize 100
  18. setvar ysize 100
  19. setvar go 10
  20. setstack 20000
  21. GuiOpen texture.gc
  22.  
  23. xONCLOSE
  24. guiquit texture.gc
  25.  
  26. TEXT 10 12 100 15 "Reaction-Diffusion Texture Synthesis" 50  NOBOX
  27.  
  28. xTEXTIN 70 30 340 15 "cli arg" cliarg "-c 0 10 -1 -l 0 10 0 -l 0 10 30 -u 0 2 -f 1 250 -u 1 1" 255
  29.  
  30. xTEXTIN 70 50 340 15 "cli arg" cliarg2 "" 255
  31.  
  32. xTEXTIN 70 70 120 15 "seed()" seed 0 10
  33.  
  34. TEXT 70 90 120 15 "Directional Diffusion factors" 50 NOBOX
  35.  
  36. xTEXTIN 70 110 120 15 "alpha1" alpha1 1.1 10
  37.  
  38. xTEXTIN 70 130 120 15 "alpha2" alpha2 0.1 10
  39.  
  40. xTEXTIN 70 150 120 15 "beta" beta 0.001 10
  41.  
  42. xTEXTIN 70 170 120 15 "xsize" xsize 100 10
  43.  
  44. xTEXTIN 70 190 120 15 "ysize" ysize 100 10
  45.  
  46. xTEXTIN 70 210 120 15 "Iterations" go 10 10
  47.  
  48. xTEXTIN 70 230 120 15 "Output file" pgmfile "test.pgm" 60
  49.  
  50. xTEXTIN 70 250 120 15 "Palette" palfile "default.pal" 60
  51.  
  52. xBUTTON 70 270 120 15 "Generate Texture"
  53. CLI 'texture -o $pgmfile -d $xsize $ysize -s $seed -a $alpha1 $alpha2 -b $beta $cliarg $cliarg2 -g $go'
  54.  
  55. xBUTTON 70 290 120 15 "Show Texture"
  56. CLI 'cpgm -i $pgmfile -o temp.ppm -p $palfile'
  57. CLI 'ppmtoilbm -24if temp.ppm >temp.ilbm'
  58. RUN 'multiview temp.ilbm'
  59.  
  60.  
  61.  
  62.